home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / pdq_41.arc / PDQ-BOX.ASP < prev    next >
Encoding:
Text File  |  1990-03-24  |  2.4 KB  |  126 lines
  1. ;     ---------- Variables ----------
  2. ;
  3. ;     S0 - Qwikmail Transfer Switch
  4. ;     S1 - File Transfer Switch
  5. ;     S2 - Files Line 1
  6. ;     S3 - Files Line 2
  7. ;     S4 - Files Line 3
  8. ;     S5 - Auto Logoff Switch
  9. ;     S6 - Next .ASP File In Chain
  10. ;     S7 - General Purpose
  11. ;     S8 - General Purpose
  12. ;     S9 - Bulletin Toggle Switch
  13.  
  14. ;     Search for ; (semicolon) to find things you may have to modify...
  15.  
  16.  Box 12 0 21 79 79
  17.  Box 10 0 12 79 79
  18.  
  19.  Atsay 11  2 79 "PDQ - Automatic Mail and File Transfer by Dean Stacey  "
  20.  Atsay 11 66 79 "Revision 4.1"
  21.  
  22.  Gosub GETS0
  23.  Gosub GETS9
  24.  Gosub GETS1
  25.  Gosub GETS5
  26.  Locate 22 1
  27.  Execute s6
  28.  
  29. ;------------------------- SUBROUTINES --------------------------------
  30.  
  31. GETS0:
  32.  Atsay  13  2 79 "Mail Transfer    (Y)es (N)o (R)eplies only? :         "
  33.  Locate 13 48
  34.  Keyget s0
  35.  Atsay  13 48 79 s0
  36.  Switch s0
  37.      Case "Y"
  38.      Endcase
  39.      Case "N"
  40.      Endcase
  41.      Case "R"
  42.      Endcase
  43.      Case "1B"
  44.          Goto ABORT
  45.      Endcase
  46.      Default
  47.          Goto GETS0
  48.      Endcase
  49.  Endswitch
  50.  Return
  51.  
  52. GETS9:
  53.  Atsay  14  2 79 "Toggle Bulletins (Y)es (N)o?                :         "
  54.  Locate 14 48
  55.  Keyget s9
  56.  Atsay  14 48 79 s9
  57.  Switch s9
  58.      Case "Y"
  59.      Endcase
  60.      Case "N"
  61.      Endcase
  62.      Case "1B"
  63.          Goto ABORT
  64.      Endcase
  65.      Default
  66.          Goto GETS9
  67.      Endcase
  68.  Endswitch
  69.  Return
  70.  
  71. GETS1:
  72.  Atsay  15  2 79 "Download Files   (Y)es (N)o?                :         "
  73.  Locate 15 48
  74.  Keyget s1
  75.  Atsay  15 48 79 s1
  76.  Switch s1
  77.      Case "Y"
  78.      Endcase
  79.      Case "N"
  80.      Endcase
  81.      Case "1B"
  82.          Goto ABORT
  83.      Endcase
  84.      Default
  85.          Goto GETS1
  86.      Endcase
  87.  Endswitch
  88.  
  89.  Switch s1
  90.      Case "Y"
  91.          Atsay 16 2 79 "Enter File List For DownLoad On Following 3 Lines"
  92.          Atsay 17 2 79 ">"
  93.          Atget 17 4 79 74 s2
  94.          Atsay 18 2 79 ">"
  95.          Atget 18 4 79 74 s3
  96.          Atsay 19 2 79 ">"
  97.          Atget 19 4 79 74 s4
  98.      Endcase
  99.  Endswitch
  100.  Return
  101.  
  102. GETS5:
  103.  Atsay  20  2 79 "Automatic Logoff (Y)es (N)o?                :         "
  104.  Curon
  105.  Locate 20 48
  106.  Keyget s5
  107.  Atsay  20 48 79 s5
  108.  Switch s5
  109.      Case "Y"
  110.      Endcase
  111.      Case "N"
  112.      Endcase
  113.      Case "1B"
  114.          Goto ABORT
  115.      Endcase
  116.      Default
  117.          Goto GETS5
  118.      Endcase
  119.  Endswitch
  120.  Return
  121.  
  122. ABORT:
  123.     Clear
  124.     Atsay 1 2 31 ">>> PDQ Terminated <<<"
  125.     Exit
  126.